home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / AspectAdaptor.p < prev    next >
Text File  |  2004-01-31  |  3KB  |  75 lines
  1. pTempVar <- <primitive 110 13 >
  2. <primitive 112 pTempVar 1  " printOn: " \
  3.   #( #[ 16r21 16r20 16rA4 16r81 16r00 16rF2 16r21 16r31 16r81 16r02 16rF2 \
  4.         16r20 16r80 16r03 16r21 16r81 16r04 16rF2 16r21 16r80 16r05 \
  5.         16rF2 16r20 16r21 16r81 16r06 16rF2 16r21 16r10 16r81 16r07 \
  6.         16rF2 16r21 16r38 16r81 16r02 16rF2 16rF5] \
  7.     #( #print: $( #nextPut: #target #printOn: #space #printPathOn: \
  8.         #nextPutAll: $)  )) >
  9.  
  10. <primitive 112 pTempVar 2  " update:with:from: " \
  11.   #( #[ 16r23 16r20 16r90 16r00 16rB6 16rFC 16r05 16r21 16r20 16r80 16r01 \
  12.         16rB6 16rF7 16r0A 16r20 16r90 16r02 16r33 16r22 16r20 16r83 \
  13.         16r04 16rF8 16r07 16rF2 16r20 16r21 16r22 16r23 16r93 16r04 \
  14.         16rF2 16rF5] \
  15.     #( #subject #forAspect #dependents #value #update:with:from:  )) >
  16.  
  17. <primitive 112 pTempVar 3  " valueUsingTarget: " \
  18.   #( #[ 16r21 16r5D 16rB6 16rF6 16r07 16r21 16r10 16r81 16r00 16rF3 16rF8 \
  19.         16r03 16rF2 16r5D 16rF3 16rF2 16rF5] \
  20.     #( #perform:  )) >
  21.  
  22. <primitive 112 pTempVar 4  " setValueUsingTarget:to: " \
  23.   #( #[ 16r21 16r5D 16rB6 16rF6 16r05 16r21 16r11 16r22 16r82 16r00 16rF2 \
  24.         16rF5] \
  25.     #( #perform:with:  )) >
  26.  
  27. <primitive 112 pTempVar 5  " initialize " \
  28.   #( #[ 16r20 16r90 16r00 16rF2 16r20 16r31 16r32 16r82 16r03 16rF2 16rF5 \
  29.        ] \
  30.     #( #initialize #value #value: #accessWith:assignWith:  )) >
  31.  
  32. <primitive 112 pTempVar 6  " setAspect: " \
  33.   #( #[ 16r20 16r21 16r21 16r30 16r0B 16r12 16r0A 16r12 16r82 16r01 16rF2 \
  34.         16rF5] \
  35.     #( ':' #accessWith:assignWith:  )) >
  36.  
  37. <primitive 112 pTempVar 7  " forAspect " \
  38.   #( #[ 16r12 16r5D 16rB6 16rF7 16r03 16r10 16rF8 16r02 16rF2 16r12 16rF3 \
  39.         16rF5] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 8  " accessWith:assignWith:aspect: " \
  43.   #( #[ 16r21 16r60 16r22 16r61 16r23 16r62 16rF5] \
  44.     #(  )) >
  45.  
  46. <primitive 112 pTempVar 9  " assignAccessWith:assignWith: " \
  47.   #( #[ 16r20 16r21 16r22 16r5D 16r83 16r00 16rF2 16rF5] \
  48.     #( #accessWith:assignWith:aspect:  )) >
  49.  
  50. <primitive 112 pTempVar 10  " forAspect:accessPath: " \
  51.   #( #[ 16r20 16r22 16r81 16r00 16r21 16r81 16r01 16rF3 16rF5] \
  52.     #( #accessPath: #forAspect:  )) >
  53.  
  54. <primitive 112 pTempVar 11  " forAspect: " \
  55.   #( #[ 16r20 16rA0 16r21 16r81 16r00 16rF3 16rF5] \
  56.     #( #setAspect:  )) >
  57.  
  58. <primitive 112 pTempVar 12  " accessWith:assignWith:accessPath: " \
  59.   #( #[ 16r20 16r23 16r81 16r00 16r21 16r22 16r82 16r01 16rF3 16rF5] \
  60.     #( #accessPath: #accessWith:assignWith:  )) >
  61.  
  62. <primitive 112 pTempVar 13  " accessWith:assignWith: " \
  63.   #( #[ 16r20 16rA0 16r21 16r22 16r82 16r00 16rF3 16rF5] \
  64.     #( #assignAccessWith:assignWith:  )) >
  65.  
  66. <primitive 98 #AspectAdaptor \
  67.   <primitive 97 #AspectAdaptor #ProtocolAdaptor #AmigaTalk:General/AspectAdaptor.st \
  68.    #(  #getSelector #putSelector #aspect ) \
  69.    #( #printOn: #update:with:from: #valueUsingTarget:  \
  70.        #setValueUsingTarget:to: #initialize #setAspect: #forAspect #accessWith:assignWith:aspect:  \
  71.        #assignAccessWith:assignWith: #forAspect:accessPath: #forAspect: #accessWith:assignWith:accessPath:  \
  72.        #accessWith:assignWith:  ) \
  73.   pTempVar 4 10 > #ordinary >
  74.  
  75.